home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl760 / edgraphj.lzh / EXPANDME.EXE / lha / POLAR1.GRF < prev    next >
Text File  |  1992-10-01  |  1KB  |  35 lines
  1. {------------------------------------------------------------------------
  2. { POLAR1.GRF - EdGraph demo program (polar coords)
  3. {
  4. { Type - AltV to see this demo, or
  5. {      - AltP to print it, but first...SPECIFY WHAT PRINTER YOU ARE USING:
  6. {--------------------------------------------------------------------------}
  7. Printer=1;   { Change the value to one of these, depending on your printer:}
  8.              {      1 = Generic 9 pin dot matrix,                          }
  9.              {   2..7 = Epson: 2=MX, 3=RX, 4=FX, 5=EX, 6=LX, 7=LQ          }
  10.              {   8..9 = IBM: 8=ProPrinter, 9=QuietWriter                   }
  11.              {     10 = NEC 24 pin                                         }
  12.              {     11 = Toshiba 24 pin                                     }
  13.              { 12..13 = HP: 12=DeskJet, 13=LaserJet                        }
  14.              {     14 = PostScript printers                                }
  15. {--------------------------------------------------------------------------}
  16.  
  17. PgHeight=120; PgWidth=160; Orientn=1; Res=1;
  18. Initialise(Printer,PgHeight,PgWidth,Orientn,Res,"LPT1");
  19.  
  20. x1=-2; y1=-1; x2=2; y2=2;
  21. read(x1,"Enter new value (current value = ",x1,")");
  22. NewPlot(x1,y1,x2,y2,25,120,20,80,0,0);
  23.  
  24. xaxis("x",y1,x1,1,1,1,1,1);
  25. yaxis("y",x1,y1,1,1,1,1,1);
  26. xaxis("",y2,x1,1,2,1,0,0);
  27. yaxis("",x2,y1,1,2,1,0,0);
  28. Line(x1,0,x2,0);
  29. Line(0,y1,0,y2);
  30.  
  31. Polar(1); MoveTo(0,1);
  32. For i=0 to 7 step 0.05;
  33.   LineTo(i,1+i*sin(i)/3);
  34. EndFor;
  35.